home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / atarist / test / sig < prev    next >
Encoding:
Text File  |  1992-08-08  |  191 b   |  13 lines
  1. sub handler {
  2.     local($sig) = @_;
  3.     print "Caught SIG$sig\n";
  4.     exit(0);
  5. }
  6.  
  7. $SIG{'INT'} = 'handler';
  8.  
  9. print "Hit CRTL-C to see if it is trapped\n";
  10. while($_ = <ARGV>) {
  11.     print $_;
  12. }
  13.